local g=6000 local t=300 local r=2.5 local y={-1,1} local w=250 local n=20 local x=3000 local I=300 local j=3000 local k=2000 local q=BrickColor.Gray() local o=true local m=.2 local l=.1 local p=BrickColor.Black() local u=8 local N="AWD" local s=.8 local z=Vector3.new(1.2,3,3) local v=2 local i=.3 local h=8 local e=250 local d=1e9 local F=40 local f="rbxassetid://870636634" local D=1.5 local c=.3 local G=.3 local a=1.4 local E=-1 local A=-4 local b=game:GetService("Players") local C=game:GetService("RunService") local _=0 local O={} local B={} function O:CreateObject(_,a)local b=Instance.new(_) for _,a in pairs(a)do b[_]=a end return b end function B.wait(a)a=a or 0.05 local _=os.clock() while os.clock()-_<a do C.Stepped:Wait()end end local _=owner local P=CFrame.new(-30,5,0) if _.Character then local _=_.Character:FindFirstChild("HumanoidRootPart") if _ then P=_.CFrame*CFrame.new(10,5,0)end end local Q={} local L={} local M={} local _={} local J={} local K={} local H={} local _={} Q.CarModel=O:CreateObject("Model",{Name="CarModel"}) Q.Body=Q.CarModel:Clone() Q.Body.Name="Body" Q.Wheels=Q.CarModel:Clone() Q.Wheels.Name="Wheels" Q.Base=O:CreateObject("SpawnLocation",{Name="Base",BrickColor=q,Size=Vector3.new(4,1,12),CFrame=P,Anchored=true,Locked=true,CanCollide=false,Enabled=false,TopSurface=Enum.SurfaceType.Smooth,BottomSurface=Enum.SurfaceType.Smooth}) Q.FLAxle=Q.Base:Clone() Q.FLAxle.Name="FLAxle" Q.FLAxle.BrickColor=BrickColor.Gray() Q.FLAxle.Material=Enum.Material.Metal Q.FLAxle.Size=Vector3.new(1,1,1) Q.FLAxle.CFrame=P*CFrame.new(-2.5,0,-5.5) Q.FLAxle.Shape=Enum.PartType.Cylinder Q.FLAxle.CanCollide=false Q.FRAxle=Q.FLAxle:Clone() Q.FRAxle.Name="FRAxle" Q.FRAxle.CFrame=P*CFrame.new(2.5,0,-5.5)*CFrame.Angles(0,math.rad(180),0) Q.RLAxle=Q.FLAxle:Clone() Q.RLAxle.Name="RLAxle" Q.RLAxle.CFrame=P*CFrame.new(-2.5,0,5.5) Q.RRAxle=Q.FLAxle:Clone() Q.RRAxle.Name="RRAxle" Q.RRAxle.CFrame=P*CFrame.new(2.5,0,5.5)*CFrame.Angles(0,math.rad(180),0) Q.FLWheel=Q.FLAxle:Clone() Q.FLWheel.Name="FLWheel" Q.FLWheel.BrickColor=BrickColor.Black() Q.FLWheel.Material=Enum.Material.Concrete Q.FLWheel.Size=z Q.FLWheel.CFrame=P*CFrame.new(-3.5,0,-5.5)*CFrame.Angles(0,math.rad(180),0) Q.FLWheel.CustomPhysicalProperties=PhysicalProperties.new(.1,s,.2) Q.FLWheel.CanCollide=true Q.FLWheel.Shape=Enum.PartType.Cylinder Q.FRWheel=Q.FLWheel:Clone() Q.FRWheel.Name="FRWheel" Q.FRWheel.CFrame=P*CFrame.new(3.5,0,-5.5) Q.RLWheel=Q.FLWheel:Clone() Q.RLWheel.Name="RLWheel" Q.RLWheel.CFrame=P*CFrame.new(-3.5,0,5.5)*CFrame.Angles(0,math.rad(180),0) Q.RRWheel=Q.FLWheel:Clone() Q.RRWheel.Name="RRWheel" Q.RRWheel.CFrame=P*CFrame.new(3.5,0,5.5) _.FL=Q.FLWheel _.FR=Q.FRWheel _.RL=Q.RLWheel _.RR=Q.RRWheel Q.Seat=O:CreateObject("VehicleSeat",{Name="DriveSeat",BrickColor=BrickColor.Black(),Size=Vector3.new(2,.5,2),CFrame=P*CFrame.new(0,.75,0),Anchored=true,Locked=true,TopSurface=Enum.SurfaceType.Smooth,BottomSurface=Enum.SurfaceType.Smooth}) M.Flip=O:CreateObject("BodyGyro",{Name="Flip",D=500,MaxTorque=Vector3.new(0,0,0),P=3000,Parent=Q.Seat}) M.Sound=O:CreateObject("Sound",{Name="CarSound",Looped=true,PlaybackSpeed=G,RollOffMaxDistance=100,RollOffMinDistance=10,SoundId=f,Volume=D}) Q.FLAxle.Parent=Q.Wheels Q.FRAxle.Parent=Q.Wheels Q.RLAxle.Parent=Q.Wheels Q.RRAxle.Parent=Q.Wheels Q.FLWheel.Parent=Q.Wheels Q.FRWheel.Parent=Q.Wheels Q.RLWheel.Parent=Q.Wheels Q.RRWheel.Parent=Q.Wheels Q.Base.Parent=Q.Body M.Sound.Parent=Q.Seat Q.Wheels.Parent=Q.CarModel Q.Body.Parent=Q.CarModel Q.Seat.Parent=Q.CarModel Q.CarModel.Parent=script L.SeatToRLAxle=O:CreateObject("WeldConstraint",{Name="Weld",Part0=Q.Seat,Part1=Q.RLAxle}) L.SeatToRRAxle=L.SeatToRLAxle:Clone() L.SeatToRLAxle.Part1=Q.RRAxle L.SeatToRLAxle.Parent=Q.Seat L.SeatToRRAxle.Parent=Q.Seat for _,_ in pairs(Q.Body:GetDescendants())do if _:IsA("Part")then local a=Instance.new("WeldConstraint") a.Name="Weld" a.Part0=Q.Seat a.Part1=_ a.Parent=Q.Seat end end for a,_ in pairs(_)do local e,f=Instance.new("Attachment"),Instance.new("Attachment") e.Name="MotorAttach0" e.Position=Vector3.new(-.5,0,0) e.Axis=Vector3.new(0,1,0) e.SecondaryAxis=Vector3.new(-1,0,0) f.Name="MotorAttach1" f.Position=Vector3.new(-.5,0,0) f.Axis=Vector3.new(1,0,0) f.SecondaryAxis=Vector3.new(0,1,0) local i,j=Instance.new("Attachment"),Instance.new("Attachment") i.Name="SteerAttach0" j.Name="SteerAttach1" local c=Instance.new("Attachment") c.Name="SpringAttach0" c.Position=Vector3.new(0,2,0) c.Axis=Vector3.new(1,0,0) c.SecondaryAxis=Vector3.new(0,1,0) local k=O:CreateObject("CylindricalConstraint",{Name="Motor",MotorMaxAngularAcceleration=0,MotorMaxTorque=x,AngularActuatorType=Enum.ActuatorType.Motor,InclinationAngle=90,LowerLimit=y[1],UpperLimit=y[2],LimitsEnabled=true,Attachment0=e,Attachment1=f}) local h=k:Clone() h.Name="Brake" h.MotorMaxTorque=0 h.MotorMaxAngularAcceleration=1e9 local b=O:CreateObject("HingeConstraint",{Name="Steer",ActuatorType=Enum.ActuatorType.Servo,LimitsEnabled=true,AngularSpeed=v,ServoMaxTorque=d,UpperAngle=F,LowerAngle=-F}) local _=O:CreateObject("SpringConstraint",{Name="Spring",Coils=u,Color=p,Radius=m,Thickness=l,Visible=o,Damping=t,FreeLength=r,Stiffness=g,Attachment0=c,Attachment1=f}) if a=="FL"then if N=="FWD"or N=="AWD"then k.MotorMaxAngularAcceleration=I end e.Parent=Q.FLAxle f.Parent=Q.FLWheel c.Parent=Q.FLAxle _.Parent=Q.FLAxle k.Parent=Q.FLAxle k.InclinationAngle=90+E J.FLMotor=k h.Parent=Q.FLAxle K.FLBrake=h i.Position=Vector3.new(-2.5,0,-5.5) j.Position=Vector3.new(0,0,0) i.Axis=Vector3.new(0,1,0) i.SecondaryAxis=Vector3.new(-1,0,0) j.Axis=Vector3.new(0,1,0) j.SecondaryAxis=Vector3.new(-1,0,0) i.Parent=Q.Base j.Parent=Q.FLAxle b.Attachment0=i b.Attachment1=j b.Parent=Q.Base H.FLSteer=b elseif a=="FR"then if N=="FWD"or N=="AWD"then k.MotorMaxAngularAcceleration=I end e.Parent=Q.FRAxle f.Parent=Q.FRWheel c.Parent=Q.FRAxle _.Parent=Q.FRAxle k.InclinationAngle=90+E k.Parent=Q.FRAxle J.FRMotor=k h.Parent=Q.FRAxle K.FRBrake=h i.Position=Vector3.new(2.5,0,-5.5) j.Position=Vector3.new(0,0,0) i.Axis=Vector3.new(0,1,0) i.SecondaryAxis=Vector3.new(1,0,0) j.Axis=Vector3.new(0,1,0) j.SecondaryAxis=Vector3.new(-1,0,0) i.Parent=Q.Base j.Parent=Q.FRAxle b.Attachment0=i b.Attachment1=j b.Parent=Q.Base H.FRSteer=b elseif a=="RL"then if N=="RWD"or N=="AWD"then k.MotorMaxAngularAcceleration=I end e.Parent=Q.RLAxle f.Parent=Q.RLWheel c.Parent=Q.RLAxle _.Parent=Q.RLAxle k.InclinationAngle=90+A k.Parent=Q.RLAxle J.RLMotor=k h.Parent=Q.RLAxle K.RLBrake=h elseif a=="RR"then if N=="RWD"or N=="AWD"then k.MotorMaxAngularAcceleration=I end e.Parent=Q.RRAxle f.Parent=Q.RRWheel c.Parent=Q.RRAxle _.Parent=Q.RRAxle k.InclinationAngle=90+A k.Parent=Q.RRAxle J.RRMotor=k h.Parent=Q.RRAxle K.RRBrake=h end end for _,_ in pairs(Q.CarModel:GetDescendants())do if _:IsA("BasePart")then _.Anchored=false end end Q.Seat.Changed:Connect(function(_)if _=="Occupant"then if Q.Seat.Occupant then local b=b:GetPlayerFromCharacter(Q.Seat.Occupant.Parent) if b then Q.Seat:SetNetworkOwner(b) local _=Instance.new("RemoteEvent") _.Name="MainEvent" local a=NLS([[
local _=game:GetService("RunService") local r=game:GetService("UserInputService") local a={"You are driving Deto's Scratch Chassis.\n","This script was made by Detomiks on 7/27/21\n","Last updated 7/29/21 (v0.0.5)\n","\n","Keybinds:","Keyboard>W: Forward\n","KeyBoard>S: Brake\n","Keyboard>A/D: Steer\n","Keyboard>E: Shift Forward\n","Keyboard>Q: Shift Reverse\n","\n","Drive safely and wear your seatbelt!"} local f=false local k={} local b={} local l={} local H={} local E=nil local q=nil local B="" local G=0 local t=0 local j=0 local s=Vector3.new(0,0,0) local v=0 local x=0 local n=0 local m=0 local i=0 local w=0 local h=0 local e=0 local d=0 local c=0 local C=0 local z=0 local F=0 local D=1 local p=false local u=false local y=false local g=script:WaitForChild("MainEvent") local A={} function A:CreateObject(a,_)local b=Instance.new(a) for a,_ in pairs(_)do b[a]=_ end return b end local function o(a,_)if not _ then if a.KeyCode==Enum.KeyCode.R and a.UserInputState==Enum.UserInputState.Begin and not y then y=true q.MaxTorque=Vector3.new(1e7,1e7,1e7) wait(3) q.MaxTorque=Vector3.new(0,0,0) wait(3) y=false elseif a.KeyCode==Enum.KeyCode.W then if a.UserInputState==Enum.UserInputState.Begin then C=1 else C=0 end elseif a.KeyCode==Enum.KeyCode.S then if a.UserInputState==Enum.UserInputState.Begin then z=1 else z=0 end elseif a.KeyCode==Enum.KeyCode.D then if a.UserInputState==Enum.UserInputState.Begin then F=1 u=true else if p then F=-1 else F=0 end u=false end elseif a.KeyCode==Enum.KeyCode.A then if a.UserInputState==Enum.UserInputState.Begin then F=-1 p=true else if u then F=1 else F=0 end p=false end elseif a.KeyCode==Enum.KeyCode.E then if a.UserInputState==Enum.UserInputState.Begin then D=1 G=t end elseif a.KeyCode==Enum.KeyCode.Q then if a.UserInputState==Enum.UserInputState.Begin then D=-1 G=j end end end end local p="" for _,_ in pairs(a)do p=p.._ end print(p) H.MainGui=A:CreateObject("ScreenGui",{Name="CarGui",ZIndexBehavior=Enum.ZIndexBehavior.Sibling}) H.Gear=A:CreateObject("TextBox",{Name="Gear",BackgroundTransparency=1,Position=UDim2.new(.8,0,.8,0),Size=UDim2.new(.1,0,.1,0),Font=Enum.Font.Gotham,Text="Gear: 1",TextScaled=true,TextColor3=Color3.new(1,1,1),TextStrokeTransparency=.8}) H.Aspect=A:CreateObject("UIAspectRatioConstraint",{Name="Aspect",AspectRatio=2,AspectType=Enum.AspectType.FitWithinMaxSize,DominantAxis=Enum.DominantAxis.Width}) H.Aspect.Parent=H.Gear H.Gear.Parent=H.MainGui H.MainGui.Parent=script g.OnClientEvent:Connect(function(_,...)if _=="info"then f=true E=(...)[1] k=(...)[2] b=(...)[3] B=(...)[4] G=(...)[5] s=(...)[6] v=(...)[7] x=(...)[8] m=(...)[9] n=(...)[10] i=(...)[11] w=(...)[12] q=(...)[13] h=(...)[14] e=(...)[15] l=(...)[16] j=(...)[17] t=G end end) while not f do wait()end r.InputBegan:Connect(o) r.InputChanged:Connect(o) r.InputEnded:Connect(o) _.Heartbeat:Connect(function()d=(v-m)*(E.AssemblyLinearVelocity.Magnitude/i) c=(w-n)*(E.AssemblyLinearVelocity.Magnitude/t) if D==-1 then H.Gear.Text="Gear: R"else H.Gear.Text="Gear: "..D end for _,a in pairs(k)do if _=="FLMotor"or _=="RLMotor"then a.AngularVelocity=C*(G/(s.Y/2))*D E.MaxSpeed=G if(_=="FLMotor"and B=="RWD")or(_=="RLMotor"and B=="FWD")then a.MotorMaxTorque=0 else a.MotorMaxTorque=x*C end else a.AngularVelocity=-(C*(G/(s.Y/2)))*D E.MaxSpeed=G if(_=="FRMotor"and B=="RWD")or(_=="RRMotor"and B=="FWD")then a.MotorMaxTorque=0 else a.MotorMaxTorque=x*C end end end for _,a in pairs(l)do if _=="FLBrake"or _=="FRBrake"then a.MotorMaxTorque=h*z else a.MotorMaxTorque=e*z end end for _,_ in pairs(b)do _.TargetAngle=-((v-d)*F) _.AngularSpeed=w-c end end) E.Changed:Connect(function(_)if _=="Occupant"then if not E.Occupant then g:FireServer("destroy")end end end)
				]],b.PlayerGui) _.Parent=a B.wait(1) _:FireClient(b,"info",{Q.Seat,J,H,N,w,z,F,x,h,i,e,v,M.Flip,j,k,K,n}) Q.Seat.Changed:Connect(function(_)if _=="Occupant"and not Q.Seat.Occupant then a:Destroy()end end)end end end end) C.Stepped:Connect(function()M.Sound.Playing=Q.Seat.Occupant if Q.Seat.Throttle==1 then M.Sound.Volume=D else M.Sound.Volume=c end M.Sound.PlaybackSpeed=(a-G)*(Q.Seat.AssemblyLinearVelocity.Magnitude/w)+G end)